home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / skiptochar.e < prev    next >
Text File  |  1980-01-05  |  296b  |  14 lines
  1. OPT TURBO
  2.  
  3. PROC skipToChar(char, theString:PTR TO CHAR, pos)
  4.   DEF length
  5.   /* Finds the specified character in theString and returns its position. */
  6.   length:=StrLen(theString)
  7.   WHILE pos<length
  8.     IF theString[pos]=char THEN RETURN pos
  9.     INC pos
  10.   ENDWHILE
  11. ENDPROC pos
  12.   /* skipToChar */
  13.  
  14.